﻿<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%option explicit%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<%Dim appPath,rootuploadpath,subdir,cssfile
subdir=Trim(request.Form("subdir"))
appPath=replace(LCase(Request.ServerVariables("PATH_INFO")), "admin/manage_template_preview.asp","" )
if subdir<>"" then
	cssfile=appPath&subdir&"/style.css"
end if
cssfile=Replace(cssfile,"//","/")
%>
<link type="text/css" href="<%=cssfile%>" rel="stylesheet" rev="stylesheet"/>
<%=Trim(request.Form("content"))%>